home *** CD-ROM | disk | FTP | other *** search
/ Explore Yellowstone / Explore Yellowstone (1997)(The Learning Company)[PC-Mac].iso / mac / GUIDECON.DIR / 00017_Script_sc reptile < prev    next >
Text File  |  1996-02-29  |  990b  |  27 lines
  1. on mouseDown
  2.   -- button is hardwired for speed & to eliminate ambiguous behavior
  3.   
  4.   global gsGuideChannel
  5.   
  6.   set the castNum of sprite 10 to the number of cast "REPTILE1"
  7.   updateStage
  8.   puppetSprite gsGuideChannel, FALSE      -- clear the old button
  9.   put 10 into gsGuideChannel
  10. end
  11.  
  12. on mouseUp
  13.   -- button is hardwired for speed & to eliminate ambiguous behavior
  14.   
  15.   global IndexLine, subjectLine, giWhichSubject, gbTOC
  16.   global gsFrameName  -- frame label of subject used to go get GUIDEART.DIR
  17.   
  18.   set the castNum of sprite 10 to the number of cast "REPTILE2" -- hardwired to 10
  19.   updateStage
  20.   put "reptile1" into gsFrameName  -- entry point upon return from GUIDEART.DIR
  21.   go to "reptile1"
  22.   put 5 into giWhichSubject                 -- hardwired to 5
  23.   set gbTOC = FALSE
  24.   set IndexLine = 0                         -- resets index to start from beginning
  25.   set subjectLine = 1                       -- sets subject
  26.   GetSubjectList giWhichSubject
  27. end